home *** CD-ROM | disk | FTP | other *** search
/ Hottest 6 / Hottest 6 (1996)(PDSoft)[!].iso / software / demos / products / digitaluniversedemo / dudemo-install < prev    next >
Text File  |  1978-11-24  |  3KB  |  111 lines
  1. ; Digital Universe Demo installation script
  2.  
  3. (transcript "Installing The Digital Universe, Demo version...")
  4. (complete 0)
  5.  
  6. (set @default-dest (expandpath @execute-dir))
  7.  
  8. (set whattoinstall
  9.     (askchoice
  10.         (prompt "Do you wish to install \"The Digital Universe Demo\" in-place, or at "
  11.             "a user-specified location?")
  12.         (help @askchoice-help)
  13.         (choices "In-place" "User-specified location")
  14.     )
  15. )
  16.  
  17. (if (= whattoinstall 1) (
  18.     (set heredir @default-dest)
  19.     (set @default-dest
  20.         (askdir
  21.             (prompt "Where do you wish to install \"The Digital Universe Demo\"? "
  22.                 "A new directory named \"DigitalUniverseDemo\" will be created automatically "
  23.                 "in the location you choose.")
  24.             (help @askdir-help)
  25.             (default @default-dest)
  26.         )
  27.     )
  28.     (set @default-dest (tackon @default-dest "DigitalUniverseDemo"))
  29. (complete 10)
  30.     (copyfiles
  31.         (help @copyfiles-help)
  32.         (source heredir)
  33.         (dest @default-dest)
  34.         (all)
  35.         (infos)
  36.     )
  37. ))
  38.  
  39. (complete 70)
  40. (makeassign "DU" @default-dest)
  41. ; Add assign to user-startup
  42. (startup "DigitalUniverse"
  43.     (prompt "Adding DU: assign to user-startup")
  44.     (help @startup-help)
  45.     (command "assign DU: \"" @default-dest "\"")
  46. )
  47.  
  48. (set programversion 0)
  49. (if (= (run "c:cpu check 68881") 0) (set programversion 1))
  50. (if (= (run "c:cpu check 68040") 0) (set programversion 1))
  51. (set programversion
  52.     (askchoice
  53.         (prompt "Which version of the main program do you wish to install? "
  54.             "This installation program has done its best to determine "
  55.             "the version you need, but if it made a mistake, click on the "
  56.             "corrected button below before pressing \"Proceed\"")
  57.         (help "If your system has a math chip or is running on a 68040 (not the 68EC040), "
  58.             "the \"68020+/68881+\" version of the software will be the quickest. "
  59.             "If you are running an Amiga without a math chip, choose \"68000\".\n\n"
  60.             "\"The Digital Universe\" will crash if you use a version not "
  61.             "intended for your particular machine!  In most cases, this "
  62.             "installation script will determine the appropriate version "
  63.             "of the software for you.")
  64.         (choices "68000" "68020+/68881+")
  65.         (default programversion)
  66.     )
  67. )
  68.  
  69. (if (= programversion 0)
  70.     (
  71.         (rename "DU:DUDemo.000" "DU:DUDemo")
  72.         (delete "DU:DUDemo.881")
  73.     )
  74.     (
  75.         (rename "DU:DUDemo.881" "DU:DUDemo")
  76.         (delete "DU:DUDemo.000")
  77.     )
  78. )
  79.  
  80. (delete "DU:DUDemoNoIntro")
  81. (run "c:MakeLink from DU:DUDemoNoIntro to DU:DUDemo")
  82.  
  83. (complete 80)
  84. (copylib
  85.     (prompt "Copying iff.library")
  86.     (help @copylib-help)
  87.     (source "DU:libs/iff.library")
  88.     (dest "libs:")
  89. )
  90. (delete "DU:libs/iff.library")
  91. (complete 90)
  92. (copyfiles
  93.     (prompt "Copying the custom font")
  94.     (help @copyfiles-help)
  95.     (source "DU:fonts")
  96.     (dest "fonts:")
  97.     (all)
  98. )
  99. (delete "DU:fonts/DU/9")
  100. (delete "DU:fonts/DU")
  101. (delete "DU:fonts/DU.font")
  102. (delete "DU:fonts")
  103.  
  104. (complete 95)
  105. (message "Please ensure that you have read the README-FIRST and "
  106.     "ProductInfo documents before attempting to start "
  107.     "\"The Digital Universe\", as they contain some additional information "
  108.     "about how to use and operate the software.")
  109. (complete 100)
  110. (exit "Done installation of \"The Digital Universe Demo\".")
  111.